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KyEB DEC/Xll SYSTEM EXERCISER MODULE 
XKiEBO»Pll i2-OCT-78 12:07 

000000* 
000000* 




MACYll 304(1052) 12~OCT-78 16:47 P4GE 6 

lOMOD <KWEB >#170420,440/6,6,^60./127 

MODULE 140000,KWEB ^ 170428,^45^6^6^,60. , 122 

.TITLE KHEB D|C/X11 SYSTEf/' EXSkf sl6 Mo6uLE 

; DDXCOH VERSION 6 23-MAY-78 

.LIST BIN 



0122 
"040 



. «** ft* ft ************** ft* 


begin: 




hqdnam: 


.ASCII /KWEB / 
.BYTE OPEN 


XFLAG: 


ADDR: 


iinr' 


vector: 


BR2: 


.BYTE PRTY6+0 


.BYTE PRTY6+0 


DVIDl: 


+1 


SRl: 


OPEN 


sr|j 


OPEN 




OPEN 


i R4: 


OPEN 


********************** 


STAT: 


140000 


; NIT: 
! point: 


START 


MODSP 


pascnt: 





CONT: 


60. 


;c u T: 





OCT: 





Rdcnt: 





OFPAS: 





HRDPAS: 





Ysc t: 





RANN M: 





cohfig: 




JESi: 





es2: 





sv o: 


OPEN 


SVRl: 


OPEN 


SYR2: 
SVR3: 


OPEN 


OPEN 


syR4: 
!V 5: 


OPEN 


OPEN 


SVR6: 


OPEN 


CSRA: 


OPEN 


SBADR: 




ACSR: 


OPEN 


WASADR: 




astat: 


OPEN 


ERRTYP: 




asb: 


OPEN 


AUAS: 


OPEN 


rstrt: 


restrt 


m o: 


OPEN 


mdfr: 


OPEN 


intr: 


OPEN 


idnum: 


122 




.rept spsiz 




-NLIST 



******************** 

^MODULE NAME- 

;USED TO KEEP TRACK OF MBUFF USAGE 

;1ST DEVICE ADDR. 

nST DEVICE VECTOR. 

;1ST BR LEVEL. 

?2ND BR LEVEL. 

^DEVICE INDICATOR 1. 

;SSITCH REGISTER 1 

TSfelTCH REGISTER 2 

ISWITCH REGISTER 3 

;S«ITCH REGISTER 4 

E ** ft* ft* ft* **************** ft **Tft***a**Slt**j^ji^5»^*ft^jt^ 

^STATUS WORD. 
(MODULE START ADDR. 
5M0DULE STACK POINTER. 
!PJ>SS COUNTER. 

't OF ITERATIONS PER PASS=60. 

.DC TO COUNT ITERATIONS 
?LOC TO SAVE TOTAL SOFT ERRORS 
aOC TO SAVE TOTAL HARD ERRORS 
?LOC TO SAVE SOFT ERRORS PER PASS 
(LOC TO SAVE HARD ERRORS PER PASS 
■1 OF SYS ERRORS ACCUMULATED 

JCLDS RANDOM # SsiHEN RAND MACRO IS CALLE 
^RESERVED FOR MONITOR USE 
fRESERVED FDR MONITOR USE 
PRESERVED FOR MONITOR USE 

LOC TO SAVE RO. 

.OC TO SAVE Rl. 

.OC TO SAVE R2. 
^OC TO SAVE R3. 
;LOC TO SAVE R4. 
fLOC TO SAVE R5. 
-LOC TO SAVE R6. 
iADDR OF CURRENT GSR. 
iADDR OF GOOD DATA, OR 
(CONTENTS OF CSR. 
fADDR OF BAD DATA, OR 
ISTATUS REG CONTENTS. 
(TYPE OF ERROR 
(EXPECTED DATA. 
(ACTUAL DATA. 

(RESTART ADDRESS AFTER END OF PASS 
;SDRDS TO MEMORY PER ITERATION 
DWORDS FROM MEMORY PER ITERATION 
'.« OF INTERRUPTS PER ITERATION 
;M0DULE IDENTIFICATION NUMBER=122 
(MODULE STACK STARTS HERE. 



KiEB DEC/Xll SYSTEM EXERCISER MODULE 
XKlEBO«Pil 12-OCT-78 12S07 

233 

235 

236 000224" 

237 



MACYll 30A(1052) 12-0CT-78 16:47 PAGE 7 



.MORD 
.LIST 
.ENDR 
MODSP: 

.*ft**ftftft4»ft*ftft*ftft**ft**j>Sr**^^^^4^^^ 



ft**ftft*ft*ft****ft*ft4***^^A*ft^ftjl^ 



KHEB D 
XKHEBO 



EC/Xll SYSTEM EXERCISER 
Pll 12-OCT-78 12107 
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;MODULE REQUIRED REGISTERS - SET UP BY THIS MODULE. 



iiim' mm 

000230* 000440 
000232' 000442 

000234' 000444 
000236' 000446 



ASR: 
&BR! 

AVECT: 
AVECT2: 

bvect: 

BYECT2: 



-WORD 
.i^QRD 



.I^ORD 
.ilORO 



170420 
170422 

440 
442 

444 
446 



;CLOCK A STATUS REG. 
;CLOCK A BUFFER REG. 



;CLOCK A INTERRUPT VECTOR. 
?CLOCK INTERRUPT VECTOR. 



) 



doo: 
ooo: 



i; 

mm- 
nmr- 
mw 



000001 
OOOQOO 



000000 
000000 



mm 
mm 



000312' 016700 

000316' 

000322' 
000326' 
000334' 
000342' 
000350' 



062700 
010067 

016767 
062767 



000007 

mm 



177712 
000004 
177706 
177676 
000002 
177666 
000002 



RATEP: 
off: 

RANA: 

ranb: 

AIFLGS 
TRY: 

STARTS 



177722 

0002 177714 



177666 
177660 



000356* 005777 177642 



000362' 012767 044125 177514 L0G2: 
000370' 016777 177510 177626 
000376' 017767 177622 177476 



.aORD 1 

.»ORD 

.WORD Q 

.WORD 

.WORD 

.***** 



MOV 
ADD 
MOV 
MOV 
ADD 
MOV 
ADD 



JPOINTS TO CURRENT RATE 
;0FFSET TO TAKE US TO RATE ROUTINE 
;RANDQM NUMBER. 
;RANDaM NUMBER. 
*********lSy§^I3.§yQ'^ THAT CLOCK A HAS INTERRRUPTED. 



#7^INTR 

ADDR^ASR 
VECTOR^AVECT 

ASR^ABR 
#2,ABR 

AVECT, RO 

#4,R0 

RO, BVECT 

AVECT,AVECT2 

#2,AVECT2 

BVECT£BVECT2 

#2,BVECT2 



?7 interrupts/iteration 

;get base addr. 

;get base vector addr. 

;now we're gonna fix 

;all clock addresses based on asr. 

;Noy FIX VECTOR addresses 



*LOGIC test tfl BE SURE A CLOCK EXISTS AT THE 
•SPECIFIED ADDR. IF NO CLOCK, THEN A 
*DEC/X11 SYS ERROR HILL OCCUS. 



§ASR 



;address the clock, if sys error 

;OCCURS, then clock did NOT 

?return slave-syn when 
;addressed. 



fLOGIC test #2. MAKE SURE CLOCK CSR BITS 
*14,ll,6,5,2, AND CAN BE SET + CLEARED. 



MOV 
MOV 

MOV 



#044125, ASTAT 

ASTAT,@ASR 

@ASR,ACSR 



;GENERATE + RECORD PATTERN TO BE USED. 
;SET THEM IN CSR OF CLOCK A. 
;READ THEM BACK 



KMEB DEC/Xll SYSTEM EXERCISER MODULE 
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181 



000404' 
000412' 
000414' 
000420' 
000424' 
000424' 
000432' 



UilU "■'"'* '■^''^■^° 

104407 OOOQQO* 

104407 000000' 

016767 177574 177446 

012767 000025 177446 



000440' 104405 000000' 000000 



8||||| mm .„.„ 

g?i?l? mm 177374 

012767 000025 177374 

000512- 104405 000000" 000000 



mnr- 

000472' 
000476' 
000504' 
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1$: 



3$: 



CMP 
BEQ 
BREAK* 
BREAK? 

MOV 
MOV 

HRDER: 



ASTAT^ACSR 

, BEGIN 
#BEGIN 



;DID they ALL SET? 
'XlP^-^f^O TO NEXT TEST. 

^TEMPORARY RETURN TO MONITOR 

JTHEN CONTINUE AT NEXT INSTRUCTI 



DERS^I 



ASR,CSRA 
""S^ERHTYP i 



.11 



;PECORD CSR'S ADDR 
■BIT STUCK 



BEGIN, NULL ;;PATTERN 044125 FAir FH 



****** 

****** 



CLR gASR 

MOV |asr,acsr 

BEQ LOGS 
BREAKS, BEGIN 
BREAKS, BEGIN 
CLR ASTAT 
MOV ASR,CSRA 
MOV P5,ERRTYP 
•»*»**«****>******* 



/try clearing the 
jread it back. 
;if zero csr good 
;temporary return 
;then continue at 

;EXPECT ZERO CSR. 
;REC0RD CSR'S addr 
-bit STUCK 
■'■'""^"^^* ****** 



TO MO 
NEXT 



TOR.... 
STRUCTI 



«****& 
HRDERS, BEGIN, NULL ;;CSR FAILED To"ci" 



ft******* 
ft ******* 



000520- 
000526' 
000534' 
000542' 

000556' 
000562 



012767 
"'mi 

nei 

,J6767 
104407 



0167 
0177 
0267 



020052 
177352 
177464 



000000' 
000000' 



177356 
177470 
177340 
177332 



mm- mm umi 

000576' 104405 000000' 000000 



177310 
177310 



340 OOi 

341 OOi 



000604' 
000610' 
000616' 
000620' 
000624' 
000630' 
000634' 
000642' 



005077 
017767 

104407 
104407 
005067 
016767 
012767 



177414 
177410 

000000' 

000000' 

177250 

177364 

000025 



177236 
177236 



2$: 



3$: 



000650' 104405 000000' 000000 



nV?^I^JEfJn^?'r^^'^i.SPgI C:L0CK CSR BITS 
;*13,5,3, AND 1 CAN BE SET + CLEARED. 



MOV 

MOV 

MOV 

CMP 

BEQ 2$ 

BREAKS, BEGIN 

BREAKS, BEGIN 



#020052, ASTAT 
ASTAT, pSR 
flASR,ACSR 
ASTAT, ACSR 



MOV ASR,CSRA 

^9X #25^ERRTYP 

• ft«********%****«:i^««^^, 

HRDERS, BEGIN, NULL 
CLR 0ASR 

MOV |asr,acsr 

BEQ L0G4 

BREAKS, BEGIN 

BREAKS, BEGIN 

CLR ASTAT 

MOV ASR,CSHA 

MOV #25,ERRTYP 

.a**a*ftftS**i**«****»*^*^ 

HRDERS, BEGIN, NULL 

.«**** It* ****$:***ftA^j,*j^^ 



<iiP5/^J§ t RECORD PATTERN TO BE USED. 
;DID THEY ALL SET? 

'XISr,::„50 to next test. 

'I§E^f,"B*F.L^ETURN TO monitor.... 
;THEN CONTINUE AT NEXT INSTRUCTION. 

;REC0RD CSR'S ADDR. 

;bit stuck 

****************** 



.IISIi*Oni£S*2i2252.!:AiLED 

«r*ft A* **************** *****^^^^^^^^^^^^ 

;try clearing the bits 

;read it back. 

;TF zero CSR good. 

'HMEopRy return to monitor.... 

il!!P?CT"Si5S"!sSI "'" INSTRUCTION. 

rSt******************^.********^^^^^^^^ 

iiSSLEMLED TO CLEAR 



******** 



*********** 



?*L0GIC TEST #4. MAKE SURE CLOCK BUFFER REG 



'1 



m^' 



mm DEC/Kll SfSfEM EXERCISER MODULE 
XiCMEBO.Pil 12"0Cf-78 12107 
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;*P^tTERK 125252 CAN BE SET 4- CLEARED. 



l$l 



2$: 



3$! 



77062 LOGS: 
77176 



ISI 



3$: 



MOV 

MOV 

MOV 

CHP 

BEQ 

BREAKS 

BREAK^ 

MOV 
MOV 

HRDER 



#125252^ASTAT 
§ABR,|CSR 

^BEGIN 
, BEGIN 

ABR^CSRA 
PS^ERRTYP 



#25, 



;G|NERATE ♦ RECORD PATTERN TO BE USED. 

;set them in buffer reg of clock. 
;read them back 

;DID they ALL SET? 
;VES - GO TO NEXT TEST. 
^TEMPORARY RETURN TO MONITOR.... 
;THEN CONTINUE AT NEXT INSTRUCTION. 



;bit stuck 



******-^1i^*****Hitii&*tt*-kie-(fHti^ii-k^iK**t,lt*l,ifkii1ti(l,^1,-k*ifSii,ick 



RDERS^BEGIN^NULL IJBUFFER REG PATTERN 125252 FAILED 



CLR 

MOV 

BEQ 

BREAK: 

BREAK: 

CLR 

MOV 

MOV 

.«***■„ 

HRDERS 
« ***** 



ifSS .«^„ 'TRY CLEARING THE BITS 

|iABR,ACSR ;READ IT BACK. 

„tgG5 ;IF ZERO BUFFER GOOD. 

^BEGIN ;TEMP0RARY RETURN TO MONITOR 

^BfGIN JTHEN CONTINUE AT NEXT INSTRUCTION. 

ASTAT ;EXPECT ZERO BUFFER. 

S5i'S§5l JRECORD ADDR. OF BUFFER REG. 

#25,ERRTYP 5BIT STUCK 

^BEGIN^NULL ^^ JJBUFFER REG FAILED TO CLEAR 



■kik-iifiis-klcffk** 



'Jli9SIC TEST #5. MAKE SURE CLOCK BUFFER REG 
?*PATTERH 052525 CAN BE SET -s- CLEARED. 



MOV 

MOV 

MOV 

CMP 

BEQ 2$ 

BREAKS, BEGIN 

BREAKS, BEGIN 



#052525, ASTAT 
ISTAT,@ABR 
aABR,ICSR 
ASTAT, ACSR 



MOV 
MOV 

• ***** 



ABR,CSRA 
#25,ERRTYP 

HRDERS, BEGIN, HULL 

CLR @ABR 
MOV gABR,ACSR 
BEQ RESTRT 
BREAKS, BEGIN 
BREAKS, BEGIN 
CLR ASTAT 
MOV ABR,CSRA 
MOV #25,ERRTYP 



'SiPSAP * RECORD PATTERN TO RE USED. 
;SET THEM IN BUFFER OF CLOCK A. 
;READ them BACK 
;DID THEY ALL SET? 
;YES - GO TO NEXT TEST. 
;TEMPORARY RETURN TO MONITOR.... 
;THEN CONTINUE AT NEXT INSTRUCTION. 

;REC0RD BUFFER REG ADDR. 
-BIT STUCK 



.!§ 



^||buff reg pattern 052525 failed 

;try clearing the bits 

;read it back. 

?|f zero buffer good. 

jTEMPORARY return TO MONITOR.... 
'PiL£°HIPS,J' NEXT INSTRUCTION. 
JEXPECT zero BUFFER. 
;REC0RD BUFFER REG A ADDR. 

;bit stuck 
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HP 



40§ 

407 001144^ 




104405 000000* 000000 



125252 177064 

177026 

000001 177016 

mil \uiii 



177004 
176772 
001254' 



• ft**** *****««:*** «* ********** *5j.&*ii**Tft*5S,S****^S** 

HRDERS, BEGIN, NULL 



is: 



000001 
036260 

imn 

176030 
117634 
OOOOOO 

1177-' 



%&****&*****«;*&*«!& 



/;ByFFER^REG FAILED TO CLEAR 

*s«****** *-****«**** ******§*** 



*ft***«*ft**ftft4 



MOV 

MOV 

MOV 

MOVB 

RDLB 

BPL 
CLR 
MOV 
ADD 
BIT 
BNE 

CLR 
MOV 
JMP 



#125252, RANA 

iBIT6,RAtEP 

llNSERV,gAVECT 

OFF 

#1,RATEP 

i2,0FF 

RATEP,SR1 

LOOP 

AIFLG 
0FF,R1 

0LISTPCR1) 



JPHESET REANDOM NUMBER GENERATOR 

IFIRSf PASS THRU LOOP, OFFSET=0, RATES WILL=1. 

;SET UP CLOCK A'S INTER. VECTOR' 

?SET PRIORITY DN CLOCK A'S INTR. 

;GET NEXT RATE. 

;IF NOT END THEN CONTINUE. 
JCLEAR THE OFFSET 
?L0OK AT FIRST RATE 

?IS THIS RATE INHIBITED? 

/CLR FLAG INDICATING CLOCK A HAS INTERRUPTED. 

JPICK UP OFFSET 

;G0 set THE RATE + START THE CLOCK. 



THE FOLLOWING (LISTP) ARE POINTERS TO VARIOUS RATE 
ROUTINES. THEY ARE USED BY "LOOP". "LOOP" GENERATES 
AN OFFSET OF A RATE WE WISH TO EXERCISE. THE OFFSET 
;IS STORED IN Rl. m INDEX "LISTP" BY Rl (JMP §LISTP(P1)) 
;T0 GET THE ADDRESS OF THE RATE ROUTINE TO EXERCISE. 



.yORD 


1 


.WORD 


RATEO 


.aORD 


RATEl 


.MORD 


RATE2 


.WORD 


RATE3 


.WORD 


RATE4 


.WORD 


RATES 


«WORD 


RATE6 



? POINTER TO 

JPOTNTER TO 

;PQINTER TO 

;POINTER TO 

;POINTER TO 

^POINTER TO 

;POIKTER TO 



IMHZ ROUTINE 
^OOKHZ ROUTINE 
OKHZ ROUTINE 
KHZ ROUTINE 
OOHZ ROUTINE 
ANDOM ROUTINE 
INE FREQ. ROUTINE 



;THE FOLLOWING (RATEAL) ARE THE PRESET VALUES THAT THE 
;VARIOUS RATE ROUTINES NEED. THEY ARE LOADED INTO 
;CLOCK A'S PRESET BUFFER. "RATEAL" IS INDEXED BY 
;AN OFFSET IN Rl BY THE RATE ROUTINES TO GET THE 
/PHESbT vALuh 



JOFFSET ZERO, NO RATE. 
;VALUE FOR IMHZ PRESET. 

^PRESET VALUE FOR 100 KHZ 

;PRESET VALUE FOR 10 KHZ 

^PRESET VALUE FOR 1 KHZ 

;PSESET VALUE FOR 100 HZ 

JPRESET VALUE FOR RANDOM 

;PRKSET VALUE FOR LINE FREQ. 



.MORD 


1 


.SORD 


-50000. 


.^ORD 


"50000. 


.aORD 


-lOOOO, 


.WORD 


-1000. 


-WORD 


-100. 


.WORD 





.MORD 


"60, 



> =«^fc 
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467 00 

iff II 



m 

479 



m 



ooi^sl" 

mm- 



m 

M 
m 

498 
499 

185 

m 

506 
507 
508 



00140: 

1014- 



05 
00 
001414' 

001422' 



00140 
~*141 



m\ 



001336' 
001344' 

001352* 



mm' 
mm- 



005077 
016177 
016177 

104400 



005077 

mm 

104400 



mm 

016177 



176666 

001274' 

001314' 



176662 
176652 



mr- mm 



176616 

001274' 

001314' 



176612 
176602 



104400 000000' 



THE FOLLOWING (RSAL 



?R&TE 


ROUTINE 


(RATES 


?fO BE 


PUT INTO THE 


.TORD 







.WORD 






.raRD 


•i: 




.WORD 






.WORD 






• aORD 


m 




.WORD 





) IS u 
), THE 
CLOCK' 



SEO BY THE RANDOM 

Y ARE THE VALUES NEEDED 

S CSR FOR A PARTICULAR RATE. 



^OFFSET ZEROING RATE. 
;l HHZ^ GO., MODE 1 
;100 KHZ, GO., MODE 1 
;10 KHZ, GO. 
}l KHZ, GO. 
;1C0 HZ, GO- 
JLINE FREQ. 



;*THIS ROUtlPIE PRESETS CLOCK A FOR 

?*1 MHZ RATE CLOCK A INTRS IN 1/20 SEC, 25 TIMES. 



) 



CLR 
MOV 
MOV 



EXIT$, BEGIN 



RATEAL(R1),@.. 
RSAL(R1),§ASR 



;CLEAR CLOCK A, 
ABR ;PRESET COUNT IN CLOCK A. 
■START CLOCK A. 
NOH WAIT FOR INTERRUPT. 

;EXIT to MONITOR. MODULE WAIT FOR INTERRUP 



J*THIS ROUTINE PRESETS CLOCK A FOR 

?*100 KHZ RATE CLOCK A INTRS IN .5 SEC, TWICE. 



CLR gASR ;CLEAR CLOCK A. 

MOV RATEALCRn^gABR ;PRESET COUNT IN CLOCK A. 

MOV RSAL(Ri),§ASR JSTART CLOCK A. 

?NON WAIT FOR INTERRUPT. 
SXIT$, BEGIN ;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 

?*THIS ROUTINE PRESETS CLOCK A FOR 

;*10 KHZ RATE CLOCK A INTRS IN 1.0 SFC 



CLR gASR ;CLEAR CLOCK A. 

MOV RATEAL(R1),QABR ?PRESET COUNT IN CLOCK A. 

MOV RSAL(R1),@ASR ;START CLOCK A. 

;NOW i^AIT FOR INTERRUPT, 
EXIT$, BEGIN ;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT, 

*THIS ROUTINE PRESETS CLOCK FOR 

*1 KHZ RATE CLOCK A INTRS IN 1.0 SEC. 



1 
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518 

w 

521 



5: 

5 

5 
5 

5_^ 
52# 

ill 

533 

m 

536 
537 



540 
541 



545 
546 
547 
548 
549 
550 

III 

553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 

iff 

568 

i^i 
570 
571 
572 
573 



001432' 
001440' 



005077 

mm 



001274' 
001314' 



176666 
176556 



001446' 104400 000000' 



flip mm urn- 175542 

001464' 016177 001314' 176532 
001472' 104400 000000" 



001476' 004767 000224 

sgiif?: 8ii?i? mm mM*o 



mir- 88 

001524' 06 



5767 176522 
--1003 
062767 000002 



001546' 
001552' 
00l55f- 



005077 



tim 



176452 
176466 

001274' 
001314' 



001576' 104400 000000' 



001602' 005077 
001606' 016177 



176512 



001532' 005767 176510 

001536' 001003 

001540' 062767 000002 176500 

001546' 



176436 
176426 



176416 
001274' 176412 
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4$: 
5$: 



CLR 
MOV 

MOV 



;CLEAR CLOCK A. 
fiATEAL^RD-QABR /PRESET^COUNT _ IN CLOCK A 



RSAL(Rl), 



EXITS, BEGIN 



START CLOCK A, 
NOW WAIT FOR INTERRUPT. 
/EXIT TO MONITOR. 



*TH1S ROUTINE PRESETS CLOCK FOR 

*100 HZ RATE CLOCK A INTRS IN 1,0 SEC. 



CLR 
MOV 
MOV 



gASR 

RATEAL(R1),@ABR 

RSAL(R1),|ASR 



EXITS, BEGIN 



JCLEAR CLOCK A. 
JPRESET COUNT IN CLOCK A. 
;START CLOCK A. 
?NOW WAIT FOR INTERRUPT. 
;EXIT TO MONITOR. 



;*THI 

;*RAN 



S ROUTINE PRESETS CLOCK FOR 
DOM RATES 



BIC 
BIC 

JNUMB 
TST 
BNE 
ADD 

TST 

BNE 
ADD 



CLR 
MOV 
MOV 
MOV 
MOV 



PC, RANDOM 

1177771, RANA 
1177771, RANB 

ERS MUST BE 2, 4, 
RANA 
45 

#2, RANA 



?GET 2 RANDOM NUMBERS. 

;make number < lo. 

;MAKE 2ND NUMBER < 10. 

OH 6 
;IS NUMBER ZERO? 
;NO-Gn AHEAD. 
;MAKE IT NON-ZERO 



RANB 
RANB 



II 



;IS NUMBER 
;N0 GO AHEAD. 
;VAKE it NON- 



ZERO? 
ZERO. 



gASR ?CLEAR CLOCK A 

RANA,R1 

r1#0ff ^record the offset, 
rateal(ri),9abr ;preset clock a. 
rsal(r1),§asr jstar? clock a. 



MODULE WAIT FOR INTERRUPT, 



module WAIT FOR INTERRUPT. 



EXITS, BEGIN 



;EXIT TO MONITOR* MODULE WAIT FOR INTERRUPT. 



*THIS ROUTINE PRESETS CLOCK FOR 
*LINE FREQ RATE CLOCK A INTRS. 



IN 1.0 SEC 



CLR 
MOV 



gASR ;CLEAR CLOCK A. 

RATEAL(R1),@ABR ;PRESET COUNT IN A. 



KiEB DEC 
XSMEBO»P 

574 
575 

m 

580 

581 

ill 

584 

585 

m 
m 

5;- 

596 
§97 
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603 
604 

tn 

607 
608 
60f 
610 
611 
612 
613 

m 

516 

617 
618 

til 

621 



001614- 016177 
001622' 104400 



001626" 
001632' 



646' 
650' 

Hir- 



iim 



n miw- 



026727 

001- 



700' 
702" 

001704' 

001704- 

001710* 



16727 

11401 
10002 



005077 
000004 



001314' 
000000' 



176416 

000200 176364 



176376 000002 

176374 000024 

176354 000004 

176352 000002 



176314 

000000' 001716' 



001716' 

001716' 104413 000000' 

001722' 000167 177254 



001726- 066767 176312 

001734' 005567 176304 

88}i|g:8Sip] mm 

001752' 000207 



MOV RSAL(R1),§ASR 
EXIT$, BEGIN 



INSERVS 
2SJ 



3$: 



SEQ 0013 
;START CLOCK A. 

;EXIT TO MONITOR. MODULE ^AIT FOR INTERRUPT, 



;*INTERRUPT SERVICE ROUTINE 
?*FOR CLOCK, 



INC 
BIC 



CMP 
BNE 
CMP 
BEQ 
RTI 
CMP 
BNE 
CMP 
BEQ 
RTI 



AIFLG 
#200,@ASR 



0FF^#2 

a!flg^#20. 

4$ 

OFF, #4 

AIFLG, ^2 
4S 



?INDICATE CLOCK A HAS INTERRUPTED 
;CLEAR OVFRFLOW FLAG. 

;ARE WE RUNNING IMHZ RATE? 

;IF NOT , 3$ 

n MHZ, 1 SEC. UP? 

;YES - STOP 

;NC, ALLOW ANOTHER COUNT. 

>100 KHZ RATE? 

;no - 4$ 

;YES, COUNTED TWICE? 

?YES - 4S. 

;N0 - COUNT ONE MORE TIME. 



CLR @ASR 
^iRQ$7BEGiM,iNE 



;STOP CLOCK A. 

;~QuiuE~UP TO CONTINUE AT INE AND RTI 



ENDIT$, BEGIN 
JMP LOOP 



;SIGNAL END OF ITERATION. 
;M0NITDR SHALL TEST END OF PASS 
;G0 TO LOOP IF NOT ENDPASS TIME 



*THIS SUBROUTINE GENERATES 

*TWO RANDOM NUMBERS 

* 

*CALL = JSR PC, RANDOM 

^RETURNS WITH NUMBERS IN RANDA AND RANDB 



176312 RANDOMS 



ADD RANA,R&NB 

ADC RAHA 

ADD RANB,RANA 

ADC RANB 

RTS PC 



000225R 


242# 


264^ 




399 


404 


000 02R 

oooSoSr 


im 


itr 


001 00 
000250R 


238 




255 


423* 




261* 




336 






558* 




000104R 


lUi 


W 


§88ii§i 


im 


iW' 


OOOllOR 
OOOOOOR 


225| 






296 




m 



000001 
000005 
002000 
004000 
010000 
020000 



?^S8 



KMEB OSC/Xll SYSTEM EXERCISER MODULE 
SKMEB0«P11 12-0CT-78 12s07 

IBR 

iCSR 
lODR 

ilFLG 

kSB 



lSf« 

a¥ECT^ 
i¥SCT2 

BEGIM 



Bit: 

bit: 
iff 
bit: 
bit: 
bit: 
Bit: 
bit5 = 

8If3 = 

BIT4 = 

Bits = 

Bits = 

BIf7 = 

BITS = 

BIT9 = 
BREAK$- 

8R1 

BR2 

BfODS ~ 

B¥ECT 

B¥ECT2 

C'Qhfk& = 

COMFIG 

CSRi 

DAfCKS= 

DITERS= 

DVIDl 

E!IDIT$ = 

EMDS = 

ERRTYP 

EXItS = 

getpIs- 

GlBUrl- 

H8DER|= 
HKDPIS 
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100500 
000004 
000010 

888818 

oooioo 

000200 
000400 
001000 

104407 

OOO012R 

ooooiSr 

104421 

000234R 

000236R 

104412 

000056R 

OO01OOR 

104411 

104404 

000014R 

104413 

mm, 

104400 

mm 

000044R 
OO0O5OR 



238 

III 

238l 
238| 
23 8 1 



238| 
238| 



238# 

238| 

238| 

238| 

238# 

389 

188| 

1891 

2381 

247| 

248| 

238i 

2081 

218| 

238| 

2381 

190| 

238| 

ml 
ml 

238| 
203| 
2381 
2051 



296 
390 
413 



269* 
272* 



300* 
486 



265* 354* 
483* 496* 
294 306* 



264 
342 
572* 

297 
364 

525 



167 270 
71* 413* 



297 

401 



272 
273* 



312* 
499 



589 

281 
482* 
574* 
294 
403* 
"70 
13* 

302 
370 
538 



308 
402 



331* 

512 



355 

509* 

324* 



594 

292* 
484* 
584* 
310* 

412* 



308 
371 
564 



343* 
525 



361 

522* 

325 



293 
495* 
600* 
322* 



309 
376 
576 



362* 
538 



367* 
535* 

337* 



299 
497* 



314 

389 
602 



374* 
564 



368 

561* 

355* 



305* 
508* 



393* 
576 



373 

573* 
356 



306 
510* 



385* 
366* 



311 

521* 



386 

386* 



323* 
523* 



340 358 



392 
387 



324 
534* 



SEQ 0014 
398* 
399* 



330 
536* 



327 


328 


333 


lU 


340 


345 


390 
606 


395 


401 


407 


486 



^^M 

^!!^% 
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00162 
00012 



5? 



?2# 



605# 



259* 
435# 



322# 

ml 



236# 



. ) 









333 
424 
193 
225 



194 
227 



211 
228 



376 395 
592 

229 238# 



407 
214 



216 217 218 



m 



2381 
23B| 



PRTY6 = 

PRTY7 = 

PS 

PSS = 

POSH ~ 

P0SH2 ' 

RAMI 

RAMB 

RANDOM 

RillDS = 

RAHNOH 

RATEAL 

RAfEP 

RATEO 

RATEl 

RAfE2 

RATE3 

RAfE4 



mn 

000244R 
000246R 

000054R 

mm 

001332R 

milk 



410* 
546* 
619# 



483 

nn 

494| 
507| 

ml 



238# 



545* 
553 



496 
414* 



549 
555* 



509 

418 



551* 
619* 



559 
621 



619 
622* 
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00il52R 226 


400 


410» 


000056R 


20 9| 






210 








484 


497 


000 12R J 


226 






mnii in\ 






m lU in 






000 3 R 


L98 






tl 


m 




000 2 R 


93 






000024R 


'J 






000254R 1 
000026R 

000064R 


25 8# 




96 






11 
12 






000066R 


13 






000070R 


14 






000072R 
000074R 
000 76R 


15 






H 






000052R 


206 






ITM 


38 






ii 


262 




21 






m\ni 


^? 






000005R 


L85 






000000 000 








001754 001 









ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

XKHEB0,XKHEB0/SOL/CRF!SYM=DDXCOH^XKMEB0 
RUN-flME: 1 2 ,3 SECONDS 
RUN-TIME RATIO: 31/3=7.7 
CORE USED: 7K (13 PAGES) 



